home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
topupv31.zip
/
WHO17_2X.BAS
< prev
Wrap
BASIC Source File
|
1989-07-29
|
3KB
|
76 lines
Alabama Connection RBBS Upload / download Mod. (RBBS 17.2x)
by: Mike Clark
Rt.1 Box 250
Dothan, Alabama 36301
TO INSTALL:
Change line 20709 in RBBSSUB3, and 21773 in RBBSSUB5 as listed below.
'*********************************
' UPLOAD.WHO MOD FOR RBBS 17.2
'
' LINE CHANGES FOR RBBSSUB3.BAS
'*********************************
20709 CALL QTPUT1 ("Upload successful")
X$ = DATE$
Z$ = LEFT$(X$,6) + _
RIGHT$(X$,2)
STREW.TO$ = ""
UCAT$ = ""
CLOSE #2 'Bama Connx 061089
OPEN "UPLOAD.WHO" FOR APPEND AS #2 'Bama Connx 061089
WRITE #2,FILE.NAME.HOLD$, BYTES.IN.FILE#, ACTIVE.USER.NAME$,X$,TIME$
CLOSE #2 'Bama Connx 061089
20710 CALL QTPUT1 ("Describe " + FILE.NAME.HOLD$ + _
'*********************************
' DOWNLOAD.WHO MOD FOR RBBS 17.2
'
' LINE CHANGES FOR RBBSSUB5.BAS
'*********************************
'
' * UPDATE DOWNLOAD STATISTICS
'
' (formerly lines 50600 to 50614 in RBBS-PC.BAS CPC16-1A
21760 GOSUB 21780
IF FILESYS.PARAMETER > 1 THEN _
RETURN
IF BATCH.TRANSFER THEN _
CALL LINESNFIL (NODE.WORK.FILE$,DOWN.FILES) _
ELSE DOWN.FILES = 1
IF NOT DOWNLOAD.COMPLETED THEN _
AUTO.LOGOFF = FALSE : _
DF$ = " Aborted" _
ELSE CALL LOGDOWN (PERSONAL.DOWNLOAD,DWN.INDEX) : _
DOWNLOADS = DOWNLOADS + DOWN.FILES : _
GLOBAL.DL.TODAY! = GLOBAL.DL.TODAY! + DOWN.FILES : _
GLOBAL.DOWNLOADS = GLOBAL.DOWNLOADS + DOWN.FILES : _
DLBYTES! = DLBYTES! + NUM.DNLD.BYTS! : _
GLOBAL.DLBYTES! = GLOBAL.DLBYTES! + NUM.DNLD.BYTS! : _
DL.TODAY! = DL.TODAY! + DOWN.FILES : _
BYTES.TODAY! = BYTES.TODAY! + NUM.DNLD.BYTS! : _
GLOBAL.BYTES.TODAY! = GLOBAL.BYTES.TODAY! + NUM.DNLD.BYTS! : _ KG102004
NUM.DNLD.BYTS! = 0 : _
CALL MUZAK (6) : _
DF$ = " Downloaded" : _
IF (DWN.INDEX = LAST.DOWNLOAD OR NOT CONCAT.FILES) THEN _
CALL SKIPLINE (1) : _
CALL QTPUT1 ("Download successful") : _ 'Bama Connx 072889
CLOSE #2 : _ 'Bama Connx 072889
OPEN "DOWNLOAD.WHO" FOR APPEND AS #2 : _ 'Bama Connx 051789
CALL BRKFNAME (FILE.NAME$,DR$,X$,EXTENTION$,TRUE) : _ 'Bama Connx 072889
X$ = X$ + EXTENTION$ : _ 'Bama Connx 051789
WRITE #2,X$,BYTES.IN.FILE#,ACTIVE.USER.NAME$,DATE$,TIM$ : _ 'Bama Connx 051789
CLOSE #2 'Bama Connx 051789
IF AUTODOWNLOAD.IN.PROGRESS THEN _
DF$ = " AUTO" + _
MID$(N$,2)
IF INSTR(N$,"Aborted") THEN _
AUTODOWNLOAD.IN.PROGRESS = 0
A$ = ""